home *** CD-ROM | disk | FTP | other *** search
/ BCI NET 2 / BCI NET 2.iso / archives / misc / eqed.lha / EqEd / rexx / InsertFW.rexx < prev   
Encoding:
OS/2 REXX Batch file  |  1995-02-02  |  408 b   |  32 lines
  1. /* This script will insert the current equation into FinalWriter */
  2.  
  3. options results
  4.  
  5. IF ~SHOW('p',"FINALW.1") THEN EXIT
  6.  
  7. DO i=0 WHILE EXISTS("T:EqEd"||i)
  8. END
  9.  
  10. GetOutput
  11. OldOutput=result
  12.  
  13. GetName
  14. OldName=result
  15.  
  16. SetOutput PREVIEWPS
  17. Save "T:EqEd"||i
  18.  
  19. SetName OldName
  20. SetOutput OldOutput
  21.  
  22. ADDRESS "FINALW.1"
  23.  
  24. SCREENTOFRONT
  25.  
  26. IMPORTPREFS DISPLAY PREVIEW TEXTFLOW NONE LINKED NO
  27.  
  28. INSERTIMAGE "T:EqEd"||i
  29.  
  30. REDRAW
  31.  
  32.